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Changes to the club structure continue and the newsletter heading will be 
altered shortly. Meanwhile, address all correspondence to John Whitehead, 
ssastee: .6 ne ' , All material for the newsletter should be sent 
to Brian Busby, 
Club funds are low, anda fee of 5@ cents will be levied at each meeting. 
Also, for those who have it, a coffee contribution of 5% cents will cover costs. 


We are glad to report that Ian Eyles is home again from hospital. 


Ed Richardson still has parallel printer boards available for OSI machines. 
Merely send him $1 for pcb, component layout and instructions. 


The next meeting will be at 2pm on Sunday e6th May at the Essendon Primary 
School on the corner of Raleigh and Nicholson Streets, Essendon. The school will. 
be open at 1pm. 


The closing date for articles for the June newsletter is the 7th June. 


-canpecesiemmntagucrnsenonastaeiaeaconpnpeesinpuapapep pueamererenereranpaantannindnaacaanasadoahopeeareroee emnnionrsusnamanemenmanendsnoee eatestanabo-taamcananmamaneeateeaeen tomeneen ens teamaeeashasivanmesnaanmannnaceraaeanene naan eeerat eateniateenie stein aoeeeennintnenenneenn atten pn S AA eSeSnASAReaisasssiansiesresnsssiisshsaaars Anahi ananassae finns 


DISK UNBUCKLING. 


Do you have problems with Mitsubishi 5'(8' lookalike) drives? First, they 
demand special disks which are expensive and apparently scarce. Second, those 
disks you can get usually have no hub ring reinforcement and are made of very 
thin plastic which buckles and flaps while spinning, unless you were lucky and 
the disk centered first time. Eventually the buckling disappears - after a week 
or two - so the disk is still usable. A quicker way to restore them is to gently 
warm the centre. The best way to do this is in the sun. Cut a 4 cm. hole ina 
piece of white paper and. place it over the disc to protect all but the centre 
while exposing it to the sun. In summer, the disk flattens in a few seconds but 
takes longer in fall. Maybe an electric fire would do but great care should be 
taken to avoid excessive heating and probably further buckling! Needless to say, 
dust must be avoided all the time. (BJB) 
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The Meeting Was KAOS 


There was once again a pretty good roll-up for the April 
meeting. About a dozen hard-core hackers brought their machines, 
including at least 2 Rabbles,3 Macs, an OSI or two, an Atari and 
lots of Apple clones. There were also quite few new and also 
ancient faces in the crowd. Welcome to the new, and welcome back 
to the rest! In particular, we were honoured by the presence of 
Eric Lindsay. 


Ray Gardner showed his 6511AQ Universal Controller board. 
Very impressive, Ray, but can it play football? The price of the 
board and instructions is most reasonable ($25 I believe) for 
what is really a very useful item. 


The meeting was co-chaired by Ron Cork and Jeff Rae and the 
first subject to come up was money, or rather, the lack of it in 
our club coffers. A lot of ideas on how to raise money were 
kicked around, but as I understand it the probable result is that 
there may be a small door charge, say 50 cents, and the 
subscription fee will be going up as of the next year. 


One serious subject that must be mentioned is the growing 
practice of ’backing up’ copyright software in public. It is 
illegal and we are requesting those engaging in this practice to 
please desist before problems develop for the club. By all means 
demonstrate any new software, that is what the club is supposed 
to be all about,the exchange of information and ideas, especially 
new ideas. Those of you who want to get copies of particular 
items of software, by all means form special interest groups, 
exchange names and addresses and get together in private, what 
you do there is entirely up to you. Please don’t think we are 
being spoilsports, we are just trying to prevent trouble. Any 
public domain software can of course be copied without 
restrictions. 


Last but not least, I am adding my voice to the call _ for 
more of you, the members of KAOS, to get off your behinds and 
help in the running of KAOS for our (the club, that is) mutual 
benefit. You only get out of it what you are prepared to put into 
it and we can’t do it properly without everybody pitching in. I 
shall leave you with that thought and see you at the meeting. 


R.M.H. 


FOR SALE 


RABBLE 65, 1 NPI BSi DISK DRIVE, POWER SUPPLIES ¢ 12 & 3S VOLT ), 
PRINTER OUTPUT, MONITOR ¢ BMC >, 1 BOX OF DISKS. COMPDOS 1.2 AND 
1.2, SARGON CHESS, WPES@2, SOME GAMES. $700.00 ONO. 


OSI SUPER BOARD. TASAN VIDEO BOARD, TASKER BUSS, PRINTER OUTPUT, 
IN CASE ¢ COMPSOFT 9. S VOLT POWER SUPPLY, SOME SOFT WARE. 

$ 250.80 ON@ 

KEVIN CHARLESON 

PHONE 


THE ENHANCED APPLE IIe 


APPLE has announced that a new enhanced version of the IIe is now 
available (in the U.S.A. at least). 


The new APPLE IIe is achieved by the replacement of four integrated 
circuits. These changes bring a lot of the features of the IIc onto 
the IIe. 


The changes are:- 


x New microprocessor - the 65C02 with 
27 additional instructions. 


* A character generator ROM that allows the IIe 
to display Mouse TEXT characters. 


* Two new Monitor ROMs that give the IIe better 
interrupt support and add a collection of 
advanced programming features. 


Also included is a built-in mini-assembler for machine-language 
programming similar to that which the original Integer Basic of 
Apple II had. 


In the U.S.A. these four ICs are made available to update existing 
IIe's, and are installed by the dealers for about $70 U.S. 


The enhanced APPLE IIe will enable you to utilise Mouse Text which 
is required for all Mouse driven software. The type of software 
expected to be developed will have Macintosh type features, such as 
windows and pull-down menus. 


Apple states that this upgrade will mean losing a small amount of 
compatibility with current generation IIe software, but they advise 
IIe owners to upgrade for the next generation of software which is 
expected to be developed. 


This upgrade of the IIe will make the IIe and IIc more compatible 
and hopefully encourage software developers to take up the challenge 
of providing new Mouse driven Mac-type software. 


Simulated MouseText characters and their corresponding ASCII 
characters are shown in Figure 5-1. 


MouseText Characters 


gCrKRXVY 


&. 
- 
Cc NY, = 


Q R S T 
al _ 4 


em eee 60cm 60 ewe 0 eee 60 eee 0 ee 0 ge 0 een 0 eee 0 eng 0 eeneme 0 0 eens 


FACKFOoT BY F. WOODHOUSE 
The program "JACKPOT" is a computer simulation of a poker machine.As 
such the odds are fairly consistent with the real thing. 


All reels spin when you press the space bar and all winnings are 
credited tao your score. 


If you win, there ts a click for every cain deposited to your score. 


As with the real thing, you can’t really win, but have fun anyway. 


REM EXER EASS RATS ERE 


1 
2 REM * JACKPOT 5 
3 REM * BY R.WOODHOUSE *# 
4 REM * | * 
5 REM * FOR APPLE Jf * 
6 REM 49K * 
7 REM * 10/4/1985 x 
8 REM has 
10 HOME 
20 D = 100 
30 A$ = "9J4#$ JAIKAKS PAGIF9IGE IGAISKAKIAIT$4I9" 
40 BS = "S#tAKIIQIX$SKAGTII€S9IFQGAK$*9Q9 JKAS" 
SO C$ = "JOXKQSAGIFS#IKA IAI IEKI€S9 TGASQKYI I" 
60 A = INT ( RND (1) * 34) + 1 


65. IF A < § THEN 60 
70 REM TITLE 
80 VTAB 10: HTAB 2: INVERSE : PRINT " " 


NORMAL 
90 PRINT 
100 HTAB 13: PRINT "#% JACKPOT *#%" 
110 FPRINT ; 
120 HTAB 2: INVERSE : PRINT " . . ": NORMAL 
130 FOR X = 1 TO 2000: NEXT X 
135 HOME 
146 VTAB 4: HTAB 4: PRINT "DO YOU WANT INSTRUCTIONS? (Y/N) 
145 INPUT " > ":2%; IF LEFT$ (2%$,1) = "“Y" THEN GQSUB 10000 
147 HOME 


150 FEM SET UP SCREEN 
160 VTAB 6: HTAB 5S: INVERSE : PRINT " . 


170 HTAB 3: PRINT " "“:: NORMAL : PRINT " ":; INVERSE : PRINT " ":; NORMAL 
. * PRINT " ": > INVERSE : PRINT " “":: NORMAL : PRINT " “;:3 INVERSE 
PRINT " " 
180 HTAB 5S: PRINT " ":: NORMAL : PRINT " ";: INVERSE : PRINT “ ":: NORMAL 
: PRINT " ":;+ INVERSE : PRINT " ":: NORMAL : PRINT " ":? INVERSE 
: PRINT " " 
190 HTAB S: PRINT " -":: NORMAL : PRINT " ":i INVERSE : PRINT "--":: NORMAL 
: PRINT " ":? INVERSE : PRINT "--":: NORMAL : PRINT " ";: INVERSE 
PRINT "- -* ; 
200 HTAB SS: PRINT " ":: NORMAL : PRINT " “;: INVERSE : PRINT " ": i NORMAL 
| PRINT " ";t INVERSE : PRINT “ ":: NORMAL : PRINT " ":; INVERSE 
: PRINT " “"" 
210 HTAB 3S: PRINT "  ": i NORMAL : PRINT " ";: INVERSE : PRINT "  “:: NORMAL 
PRINT " “:} INVERSE : PRINT " ":: NORMAL : PRINT " “;: INVERSE 
PE J N " se : 
220 HTAB S: PRINT " "; NORMAL 


390 VTAB 5S: HTAB 28: PRINT "$ $ $ = 200" 


400 HTAB 28: PRINT "A A A = 100" 
410 HTAB 28: PRINT. “"K K K = 100" 
42 HTAB 28: PRINT "@ @ Q@ = 100” 
430 HTAB 28: PRINT "J J J = 50" 
440 HTAB 2&6: PRINT "* * * = 0" 
450 HTAB 28: PRINT "9 9 9 = SO" 
460 HTAB 26: PRINT "$ $ . = SO” 
470 HTAB 28: PRINT "A A. = 30" 
480 HTAB 25: PRINT "K K . = 30” 
490 HTAB 28: PRINT "QQ. = 30" 
S00 HTAB 28: PRINT “J J = 


. 20" 


510 

520 

530 

1490 
1500 
1510 
1520 
1530 
1540 
1550 
1580 
1590 
1600 
1605 
1607 
14610 
1612 
1615 
1620 
1622 
1625 
1710 
1720 
1730 
1740 
1750 
1740 
1600 
1810 
1620 
1430 
1949 
1850 
1450 
1900 
1905 
1910 
1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 
1950 
1965 
1970 
1975 
1990 
1985 
1990 
2360 


2370 
Z400 
2450 
2430 
2490 
2900 
zu10 
20090 
7010 
3020 


2030 
5040 
2050 
10000 


10010 


10020 
10030 
10040 
100350 


HTAB 28: PRINT "*% # . = 20" 
HTAB 28: PRINT "9 9 . = 20" 
HTAB 28: PRINT "$ = 10" 
VTAB 2: HTAB 5: PRINT "YOU HAVE ":D:" COINS LEFT " 
VTAB 20: HTAB 2: PRINT "PRESS ANY KEY TO START" 
GET £$ : . 
D=D- 10 
VTAB 20: HTAB 2: PRINT " " 
VTAB 2: HTAB 5S: PRINT “YOU HAVE ":D:" COINS LEFT “ 
IF D < 0 THEN 2500 
A = INT ( RND (1) # 16) + 1 
IF A < 5 THEN 1580 
FOR N= 1 TOA 
O = N+ INT ( RND (1) * 5) 
P = N + INT ( RND (1) # 5) 
Ds = MIDS (A$,N,1) 
Es = MIDS (A$,N + 1,1) 
Fs = MIDS (A$,N + 2,1) 
VTAB 7: HTAB 8: PRINT D$ 
VTAB 9: HTAB 8: PRINT ES 
VTAB 11: HTAB 8: PRINT FS 
G$ = MIDt (B$,0,1) 
Ht = MID$ (B$,0 + 1,1) 
1¢ = MID¢ (B8,0 + 2,1) 
VTAB 7: HTAB 13: PRINT G$ 
VTAB 9: HTAB 13: PRINT H$ 
VTAB 11: HTAB 13: PRINT I$ 
Js = MID (C$.PF,1) 
K$ = MID$ (Ct,P + 1,1) 
L$ = MIDS (C8.P + 2,1) 
VTAB 7; HTAB 18: PRINT J¢ 
VTAB 9: HTAB 18: PRINT K$ 
VTAB 11: HTAB 18: PRINT L$ 
NEXT N 
wWi= 0° 
Wt = E$ 
IF W$ = "$" THEN WU = 10 
Ws = WS + HS 
IF Ws = "$$" THEN W = 50 
IF W$ = "AA" THEN W = 30 
IF W% = "KK" THEN W = 30 
IF W$ = "QQ" THEN W = 30 
IF ws = "JJ" THEN W = 20 
IF ws = "#*" THEN WU = 20 
IF Us = "99" THEN W = 2 
Wt = WS + KS 
IF W$ = "$$" THEN WU = 200 
IF Wt = "AAA" THEN W = 100 
IF We = "KKK" THEN W = 100 
IF Ws = "QQQ" THEN W = 100 
IF Wt = “JJJ" THEN W = 50 
IF Wt = "*##" THEN W = 50 
IF Ws = "999" THEN W = 50 | 
IF W > 1 THEN VTAB 15: HTAB 5S: PRINT "YOU WIN “:W:" COINS": FOR N = 
1 TO 1000: NEXT N 
D=D+wW 
GOSUB 5000 
VTAB 15: HTAB 5: PRINT " " 
IF D ¢ 0 THEN 2500 
GOTO 1490 | 
HOME : VTAB 4: HTAB 4: PRINT "SORRY,YOU’RE BROKE.NO CREDIT" 
END 
S = - 15336 
FOR X = 0 TO W , | 
SOUND = PEEK (S) - PEEK (S) + PEEK (S) - PEEK (S) + PEEK (S) - 
(S) 
FOR I = 1 TO 50: NEXT I 
NEXT X | 
RETURN 
VTAB 4: HTAB 3: PRINT "YOU HAVE 100 COINS TO START WITH AND EACH 


TURN COSTS YOU 10 COINS 


HTAB 3: PRINT “ANY WINNINGS ARE LISTED ON 
MATICALLY CREDITED TO YOUR SCORE" 

PRINT 

HTAB 15: PRINT "GOOD LUCKIHIttt" 

FOR X = 1 TO 5000: NEXT X 

RETURN 


THE SCREEN AND ARE AUTO 


PEEK 


SUPER BOL RID 


©May 1985. 
Newsletter of the Ohio Superboard User Group, 146 York St, Nundah, 4012. 
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MORE ON RANDOM ACCESS FILES 


In KAOS 5/1, I developed some useful routines to construct an efficient random 
access files program. 
In this article, I build on these routines to demonstrate a practical program, 
as user friendly as possible. What exactly do I mean by user friendly? 

(1) A minimum of computer knowledge should be needed to operate it. 

(2) The program must be as error proof and crash proof as possible. 

(3) A minimum of keystrokes should be needed to update the records. 


The program as presented keeps jockey records. I keep lots of figures on 
jockey”s performances, and need five basic numbers to work them all out. I keep 
a year’s figures on each jockey, updated each month. When I enter the figures 
for June 85, I subtract the June 84 figures. Some thirteen files are needed for 
this, and I don’t intend to bore you with repetition, so I°1l just stick to the 
basic program. 

When all added, and reduced to strings(removes those unneccessary spaces in 
front of numbers), each record requires 27 bytes. 


Only changing information is kept on data files, and my current tally is 90 
riders, which will fit easily on one 8" disk track. Jockey”s names and associated 
record numbers are in Basic data statements. The names are in alphabetical order 
for each state, so that sorting is never required. 


Only changes to the KAOS 5/1 program are explained here. All the basic techniques 
are provided so that setting up a program for your purpose should be easy. 

In line 20, the pokes to 2888 and 8/22 allow a carriage return input. This is 
used to improve the speed of data entry. A jockey might have ten rides for every 
win, so it is often only necessary to update some of the fields. In this 
program, a carriage return leaves the old figure intact. 

Line 30 has a couple of new variables. PR is for printer. A parallel printer OSI 
style is device 4, while most of you will use device 1. SC is for screen output. 
For most, this will be 2. A serial terminal user will have l. 

Lines 90-95 try to match your input to one of the names in the data statements, 
to locate the record number. This routine could be better written to give a 
faster data search. 

Line 205 has a special check to prevent writing of a record outside the record 
number range. In any program using data files, data integrity is of paramount 
importance. Reading an incorrect track wouldn”t matter much —- writing it 
certainly would! The NULLO in line 200 is also very important. Writing nulls to 
disk records will overwrite other records, leaving you with a terrible mess. 

The test write routine, lines 500-520, has been improved so that only tracks in 
the record range are written to. The KAOS 5/1 routine went beyond these 

tracks. 

The printer routine and mathematical calculations, lines 600-699 will need to be 
modified to produce whatever data you want. There is an option for printing to 
the screen only. 


65D3.2 programs can only have so much protection. The program prevents exiting 


by normal means, but unlike 65U, there is no on error goto function. Doing 
something like removing a disk, then ending the program, will cause an exit to 
command mode. Should this happen, and you have a buffer full of new information, 
then GOTO999 will ensure storage. 

The write test records lines, 500 to 520, should be deleted once a working 
program is established. 6 
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THE CPM FILE 


t zipping past and 


is jus 


The year 


Here we are again for May. 


the things I was going to get done seem to be as far away as 


all 


lucky 
Is nobody doing 
how about 


we need articles for KAOS. 


I am a little concerned 
If you are, 


I am getting no feedback from those of you out there 


enough to have the CPM expansion for OSI/RABBLE. 


anything 


it, 


interesting with their machines? 


ever - you probably Know the feeling too! 


that 
telling the rest of us all about 


how are you CPM hackers getting on with the 


For that matter, 
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it. 


I only write 


is your file, 


this 


suggestion 


I have a 


At the risk of being called a traitor, 


can’t 


The price of a fully assembled Pulsar LBB has been 


those of you who don’t have CPM and would like to but 


for 


get the cards. 


dropped 


The BIOS sources are available to 


to $450.+tax. 


permit 


if you get a LBB 


etc. 


So 


terminal width, 


customizing for drives, 


of 
cards. 
extended 


Not 
or maybe a new 


Unless 


hey presto - CPM. 
nothing. 


an 8.4 monitor for the RABBLE with an 


somebody comes up with a fresh batch of CompSoft 
about 


as the real thing but better than 


good 
course, 
how 


and use your OSI or RABBLE as a terminal, 
Ray, 


as 


terminal routine Cintelligent) to fill the holes, 


ROM3 which could be a terminal/spooler arrangement (with built-in 


modem routines) for use with boards like the LBB. 


SUPERBOARD 


640 PRINT#DV,TAB(45) INT(1000/ ( (W*100- R)/S))/10- -1; : IFW=0GOTO 650 

645 PRINT#DV  TAB( 52) INT(10*(S+L)/W)/10- i 

650 PRINT#DV:GOTO610 

999 GOSUB310:DISK!"'SE A'': POKE2073,173:POKE2888, 27: POKE8722 ,27:END 
1000 DATA*BRISBANE RIDERS RIDES W%Z P% LSP% TPPZ AV SP. W SP,O 
1003 DATAG.BIRRER, 2 | 


If you have any suggestions to improve the program, or queries about it, I'd be 
pleased to hear from you. | 


Meeting of the KAOS (aed) User Group - 28th Aprcl 1985. 
Attendance: 10 Computers: 3 


The meeting was late to start, so late in fact that I thought it finally had 
happened, and nobody was coming. I am delighted to advise that OSI had made a 
strong comeback ~- all three machines were OSI, not a BBC in sight! 


Bob Best had some new music tunes for his C4P. Paul Gray and Doug Robinson, both 
working on their disk systems, had come up against a snag. Most of the disks that 
Bob had loaned them wouldn't display on their Cl's. Nobody seemed quite sure why 
not, or what to do about it. Some disassembly of the DOS was done without much 
success. It was generally agreed that the different screen and keyboard scan 

were at fault - but what to do about it? 


Bernie Wills had his machine in, plus a pile of electronic bits for sale. Some 
2732's and a sound chip were snapped up at bargain prices. Bernie also offered 
a pile of magazines to anyone interested. Ian Mackenzie, Paul, and Doug shared 
them out. 

Ian said nothing had been seen of the Sperry computers that had won the 
Education contract. Apparantly Apple had expected to get the nod. Heads will roll. 


Some fun and games were had getting a Qume daisywheel interfaced to a CIP. More 
so with a Frogger lookalike game which had an unknown bug causing premature frog 
genocide. Ross Beneke promised to solve it. The meeting ended at 4.30pm. 


SERIAL BACKSPACE FIX 


Some months back, a member asked for some help to get his terminal to backspace 
properly with O0S65D. Apparently the terminal used Hex 15 instead of the standard 
Hex 8. 

Try adding these two pokes to your BEXEC* and then put it back to disk. 


POKE 1424,21: POKE]1 434,21: REM Backspace serial terminal 


GETTING MORE NULLS 


Most ROM Basic users would know that you can poke location 13 decimal to get any 
number of nulls up to 255. OSI Basic only allows NULL8, and often this is not 
enough. 


For OS65D users, the location is 21 decimal. You can simply poke it to get all 
the nulls you want, or permanently change the compare function by poking 
location 2164 decimal with a bigger number, say 50, from a line in BEXEC*. After 
that, a NULL20 will work just fine! 


HELP WANTED 


OSUG have had some queries re additional facilities offered by 0S65D4.1 over the 
3.2 or 3.3 DOS. I would greatly appreciate an article on this subject from any 
member who has used 4.1. 


Ed Richardson. 


FORTH PART TEN BATSNDING THE FORTH COMPILER 
by Ray.Gardiner. 


Many languages allow the programmer to extend the language by creating proce- 
dures that can be invoked by name or called from a subroutine library. Forth 
allows you to progress up the ladder a step above all the otners. You can 
actually define words that define words. How to write a compiler in 25 words or 
less. 


Over the last few months we have mentioned the <BUILDS ... DOES> construction 
when discussing defining words. This construct is possibly the most powerfull 
available in any language. Consider the following example which might appear in 
the definition of a music language. We wish to refer to notes by their symbolic 
names, e.g. C# will represent C-sharp and so on. The note durations will be 
represented by, W,H,Q,E, etc. for whole, half, quarter, etc. The voice will be 
selected by V1...Vn for N-voices. Consider the definition of a word called 
NOTE as follows. 


: NOTE <BUILDS , DOES) @ PLAY-NOTE ; 
We can use this to create new note definitions as follows, 


885 NOTE C# 
764 NOTE F4 


wnen you type C#, the appropriate note will be played. 
now you can go on to define chords and complete musical phrases that can be 
comoined to make an entire composition. 


: CHORD V1 C# V2 F V3 G# ; ( No, I have no idea what that sounds like!) 


At the most elementary level, the <builds...does> construction will save an 
enormous amount of typing by generating the defining template as the example 
above illustrates. 


Tne construction can be divided into two seperate sections, firstly, the 
oortion between the <builds and the does> is executed at compile time when you 
are compiling the new word. And the section of code between does> and the ; is 
executed when the newly defined word is later executed. 


Let's call our defining word PARENT and the words created by PARENT will be 
called children. (why not?) 


: PARENT <BUILDS ( template ) DOES) (action) ; 


PARENT CHILD ( executes template defines CHILD ), 
CHILD ( executes action, le. code between DOES’ and ; ) 


Since the template and the action can be any forth structures the structure 
effectively allows us to create a whole new class of data structures with built 
in algorithms. 


Such is the power and simolicity of the <builds does> construction that it is 
unlike anything available in conventional languages. Recently a new breed of 
ooject oriented languages has attracted some publicity, and considerable por- 
tions of the smalltalk philosophy has been engineered into the MACINTOSH user 
interface. The creation of intelligent data structures using the <builds does> 
construction is relatively easy. 
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Consider as an example a self averaging array that collects its own data. 


: SMART <BUILDS 
INITIALIZE.ARRAY ALILOT.MEMORY 
DOES) 
COLLECT.DATA CALCULATE.AVERAGE ; 


SMART PAYROLL ( defines payroll, initializes array and reserves memory ) 


PAYROLL CHEQUES ( collects data, calculates averacses, prints cheques etc.) 
At execution time DOES? returns the address pointing to the start of the array. 


Or what about a video game object that moves itself around the screen changing 
shape and avoiding obstacles. 


: PLAYER BUILDS 
SHAPE.DATA.1 SHAPE.DATA.2 PLAYER. ATTRIBUTES 
DOES> 
?FLAG IF  SHAPE.1 CLEAR.FLAG 
ELSE SHAPE.2 SET.FLAG 
THEN PLAYER.MOVE ; 


PLAYER GHOST .MUNCHER 
PLAYER GOBLIN 
PLAYER SPACESHIP 


> GAME BEGIN 
UPDATE. SCORES 
GHOST .MUNCHER 
GOBLIN 
SPACE .SHIP 
HANDLE. USER. EVENTS 
?GAME .OVER 

UNTIL ; 


Each player created using the defining word PLAYER will have the same basic 
pehaviour and attributes. So for each class of object the template is the same. 
( Each defining words creates a new class of OBJECTS ) 


The following is from the Rochester forth conference pacers. It is possibly 
the most elegant piece of code ever written, 


: ACTUAL XBUILDS , DOES) ; 
: STRUCTURE “BUILDS DOES> ACTUAL ; 


Structure is a defining word which when invoked defines other defining words 
using ACTUAL..... you now have the basis of a relational data base!!!!. 


That concludes the 10 part series overview of the FORTH language, many thanxs 
to those who have expressed interest and support during the series of articles. 
For the next few months it is hopea to present applications and various 
utilities. 
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OSI Keyboard 
by John Whitehead 


The OSI keyboard is in the form of a matrix. It is accessed by sending data 
between 2 and 255 to its memory location of 57888 (hex $FD@Z) and then reading 
that location to detect which key or keys are pressed. Due to incomplete address 
decoding, it actually covers memory 57988 to 57343. 


For normal text use, a machine code routine in the monitor ROM at $FD@2 
takes care of keyboard scanning and decoding. This routine leaves the ASCII 


value of the key pressed in the 6582 accumulator. This routine can be called 
From basic with:- 


POKE 11,8 : POKE 12,253 : REM 253=$FD 
X=USR(X) : A = PEEK (531) : PRINT CHRS$(A) 


The hardware for the superboard CiP is different to the C4P. The C4P drives 
one row high at a time where the C1P drives one row low at a time. This makes 


the peek and poke values different. Both are show in the chart but examples are 
For C1P. 


For special use, such as game movement keys or joysticks, a simple BASIC or 
m/code routine can detect keypresses. 


To detect a single key, e.g. the space bar, look up the row and column 
values for 'SPACE't in the chart and use them in the program below. The CTRL C 
routine has to be turned off as it will poke rows zero and two which could give 
wrong column values. If you only want to detect keys in row zero, you can leave 


CTRL C turned on and just peek the columns. The CTRL C routine is at $FFSB. You 
could disassemble this to see how it works. 


10 KEY=57288 

28 POKES39,1 :REM Turn off CTRL C. 

36 POKE KEY,253 :REM Drive row two low 

49 PRESS = PEEK(KEY) : PRINT PRESS: REM get column value 

5@ IF PRESS = 239 THEN PRINT'TSPACE BART! : POKES3@,@ : STOP 

62 REM 239 = Column four driven low by connecting it to row two 
7% GOTO3¢ 


To detect two or more keys pressed together, a logical and is performed on 
the row and column values from the chart.e.g. for CTRL Z, drive rows @ and 1 low 
and look at columns 5 and 6. To calculate a logical and, the values need to be 
converted to binary. The logical and of @ and @ = @, @ and 1 = @, 1 and 1 = 1. 


The poke value is:- The peek value is:- 
CTRL = 254 = $FE = %1111 1110 CTRL = 191 = $BF = %1811 1111 
Z = 251 = $FB = %1111 1811 Z = 223 = $OF = %1181 1111 
1111 1918 = $FA = 259 1901 1111 


= $9F = 159 
BASIC will do the above calculation for you as shown below. 
190 KEY=57288 | 
120 POKE5S3@, 1 
130 POKEKEY, 254AND253 
140 PRESS=PEEK(KEY) : PRINTPRESS 
150 IF PRESS=(191AND223) THEN PRINT'YCTRL Z't:POKES3@,0:STOP 
174 GOTO130 


If you run the above, you may find you can't escape. this is because you 
have three keys pressed, one in row one and two in row zero and the column value 
is not 159. This can be fixed by changing line 15@ to :- 


IF PRESS = (191AND223) OR PRESS = (191AND223AND254) THEN.... 
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PEEK(5 7088) QR $DFO6O TO GET KEYPRESS VALUES 


C4 HEX VALUES $80 $408 $26 $18 $08 $04 $02 $81 
C4 PECIMAL VALUES ————~ 128 64 32 16 8 4 2 


ewe 


$7F $BF SDF $EF $F7 $FB $FD SFE 
127 191 2285 239 247 251 253 254 


Cl HEX VALUES 
Ci DECIMAL VALUES 


COLUMN C7 C6 C5 C4 C3 C2 on Ce 
1 2 3 4 5 
$88 128 $7F 127 RT 
8 RUB 
OUT 
$408 64 $BF 191 R6 
| eee stews fF 
$28 32 $DF 223 R5 
$10 16 $EF 239 R4 
$08 8 $F7 247 R3 
$24 4 £«$FB 251 R2 
“yippee pepe 
$02 2 $FD 253 RI = 
RPT | CTRL {| ESC LEFT IRIGHT{SHIFT 
| SHIFTJSHIFTJ LOCK 
$01 1 SFE 254 RO 


t 
ROW 
Cl DECIMAL POKE VALUE 


Ci HEX POKE VALUE 


C4 DECIMAL POKE VALUE 
C4 HEX POKE VALUE 


FOR SALE 


Superboard Series II in metal case. 8K. Switchable Cegmon/Dabug; 
1/2 MHz; 3/6/1200 baud. OSUG Basic 3 & 4. RS-232. B & W monitor. 
$100 ono. 


Rabble board 34K RAM, fully populated except sound; some Eproms; 
disc interface operational; 40-way cable ; disc cable. $150 ono 


Video board using 6545 controller; Cegmon (2716) and Basic 3 & 4 
(2732) containing initialisation routine for 64 characters with C4 
screen map. Can program 6545 for 24,32 or 80 chars. 40-way cable. 
$55 ono 


Eprom burner with 28 pin Textool ZIF socket, plugs via 2 short cables 
into Rabble I/O ports. Needs approx. 30V supply but has regulator 

for 21 and 25V. Machine code software in eprom downloaded from socket 
to RAM at $C800 - suits Cegmon or use Basic program on cassette (both 
supplied). $40 ono 


B. Wills, 


ADDING ASM65 to SBII 
6y Gerard Campbell 
For about a year now I have been using David Dodd’s (DD) 

excellent modified and ROMable OSI assembler called *ASM 65’ ,which 
has many enhancements including more flexible renumbering ,unique 
auto-numbering ,extra commands such as FIND and COPY ,better editing 
(using DABUG) ,checksum loader and tape maker .ASM65 is available in 
a number of configurations at a reasonable price from DD. ASM 65 
which allows full use of program RAM ,took a lot of development time 
and naturally DD is a bit disappointed due to the lack of response - 
only a few people are using it. Pherhaps this article might generate 
some interest amongst those people (youngsters ,newcomers ,students) 
with CiP ,DABUG cassette based systems. With ASM65 on board it is as 
easy to use as BASIC - encouraging use. 


My version of ASM65 is at S$8000-S$9FFF and uses as program RAM 
$O300-SG1iFFF - plenty of memory for a fairly large program. With the 
addition of a VIA ,all the projects described in Rodnay Zaks *6502 
Applications” are easily done and the ol’ Super’ becomes an ideal 
learning system. (It always was). 


If any people reading this feel that the following mods are 
beyond them ,I would be willing to help (in Melbourne area) as I have 
some time to spare. 

To add ASM65 to your CiP refer to Diagram 1. and SBII ccts and do the 
following -- 
1). Remove all Basic ROM’s carefully. 
2). Bend up pin 20 on BASIC 1 and piggyback on top of BASIC 3 (see 
HINT 1). 
3).Bend up pin 20 on BASIC 2 and piggyback on BASIC 4. 
4). Cut trace going from pin 20 on US socket towards UY2 near pin 12 
of U10O. (Ci). 
5). Cut trace going from pin 20 on U10O towards U15 halfway b/w the 
two. (C2). 
6). Put BASIC 2on4 in U1L2 socket ,BASIC tlonS goes in U11l socket. 
7). Solder lead ,L3, b/w pin 20 of BASIC 1 and U?2 side of Ci (use 
plated through hole). 
8). L4 goes b/w pin 20 of BASIC 2 and U15 side of C2. 

At this point it might be wise to power up and see if BASIC is 


running. OK? ; 
Lp | - S-6. 
To pia Il on 023 Tracks. 
l 


. Fe cY V\b JIS V72 Ve (3 
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Ld J 
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RSA, / salad 
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( SIOE, 
BACILE 0 ! . 
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i cuts 


2732 


UIP 
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2 ASM6ES 1 
BASIC 4. QASTC 2 BASIC3 BASIC ASN or WP6502 
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9). Take a 74L5138 which: 
we will call U?YSB, and 


- _ AON-CoMPONENT § SIDE bend up all pins except 

3,4,6,8 and 16 ,and 

Go ee ee piggyback this on U73. 

o Now solder the 

4 2 UL following ieads. | 
10).L1 b/w pin 1 of 

dat : ae UYVSB and pin 2 of U?7S 
~ 2! (use plated through 


Le = Ce | BASIC detect ie 


11).L2 b/w pin 2 and 
Dsacram 2. 
aT 


pin S of U7Y3B (i.e. 

KEYBOARD ground B select line). 
12).L5 b/w pin 14 of UYSEB and UP side of Cl. 
13).L6 b/w pin 15 of UZVSEB and U10 side of C2. 
19) .LO b/w pin 3S af UYSE and pin 11 of U2Z3. 
15) .Put ASM65 1 in UF and ASM6S 2 in U1IO. 

Now turn Superboard over and refering to Diagram 2 -- 

16).Cut traces joining pins 18 of ROMs b/w newly installed EPROMs and 
BASIC chips i.e. B/w U10O and U11 .This is cut C3. Do same for trace 
joining pins 21 ,this is cut C4. (see HINT 2). 
17). Lead L?Y goes b/w pin 18 and pin 12 of US i.e. ground chip enable 
thus using output enable as chip select. 
13) .L8 goes b/w pin 20 aon US (tne 6502) and pin 21 of UG ,i.e. join 
Ali to respective 2732 pin. 


Now check solder joints ,piggy backing and trace cuts. Power up 
,get into monitor ,type 8000G and happy assembling. 
HINT 1. -- Hold chips lightly in vice 
or b/w two heavy objects. Pull 
cardboard out after soldering leaving 
an air gap which aids cooling. 
HINT 2. -- Hold piece of thin metal 
covering neighbouring traces ,cut 
1 towards metal which stops accidental 
trace cutting. 


solders IPO ‘ 
wooden bf oc le, 


le 2 
Card board. 


X#% Note that John Whiteheads WP6502 
in ROM can be added ta US socket 
instead of ASM6S 1 (S$8000-S3FFF). 


To complete this article I will 
suggest an easy way to adda VIA to an 
unexpanded C1P. The circuit appearing 
in Diagram 3 uses 3 chips ,a 74L504 ,a 
74L5138 and the VIA.To use this cct 
you must do a naughty and bypass the 
eT22 buffers US and U? on the SBII. Do 
this by linking pins 2 to 3, 13 to i2 
36 ta YY and 10 to ¥ on each socket. 
This makes DD redundant (not David 
Dodd). 

Make the cect on a piece of veroboard using a 40 pin wire wrap socket 
to plug it into SBIT 1/G. Bring the PIA ports out ta molex pins ,16 
Pin sockets or whatever. 
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$.6.IL a ae ,e SV DIAGRAM 2 The cct decodes 
~~~ $CEOO-SCFFF ,any 


- Ee ¢o a address in this range 

| ; 2 é ending with O-F 

26 Cg 2pelac accesses the respective 

ie (Re ye PORT A VIA resister. Another 
ta fA PIA or VIA can be added 


ees 1p CBI by connecting Y2 (pin 
1G 82 13) of the LSi38 to its 

| BY. es 9 , CS2 pin. (23). Its 

62 4 PorT B address will be within 


‘ —_ 
ee - AB Se og sy SCAOO-SCBFF. 


Phone nos. 
s 47K DD’s (BH) O3 6067729 
Addition of VIA 40 +8. re Mine (AH) O03 4659325. 


Superboard C1P monitor locations. 
by John Whitehead and Mark Howell. 
Original monitor or Dabug off Dabug3 Dabug3J Resmon Cegmon 
' 1 1 ' ! 


Input vector at #218,9 FFBA F800 F800 F800 FB46 


Output vector at @21A,B FF69 FBAC FBO@ FBQ2 FF9B 
CTRL C vector at @21C,0 FFSB FF9SB FF9B FF9SB FB94 
Get keyboard value F021 

Printer flag G217 

Screen clear FCDS FDC5 FCDS FESS 
Screen clear CHR$ 127 127 127 26 


The following are the same in all monitors above :- 


NMI vector at FFFA,B 0132 IRQ vector at FFFE,F G1CPZ 
LOAD flag at @293 1=0n SAVE flag at #205 1=0n 
CTRL C flag at ete B=on Disc boot FCO 
ACIA reset FCA6 send char. to ACIA FCB1 
Reset vector at FFFC,O FF Keyboard routine FD@@ or FEED 
M/Code monitor FES Get char. from ACIA FE8@ 
LOAD vector at @e1E,F FF8B SAVE vector at @220,1 FF96 


Dabug uses memory at GEM to SGE8 and OOFE to BOFF. 
Cegmon uses memory at @222 to $234 that Dabug does not. 


Major improvements over the original SYN6@M monitor are :- 
Dabug 3. Single key BASIC, Screen editing, Screen clear, Screen freeze and 
screen swop for 48 x 12a. 


Dabug 3J. As Dabug 3 plus a correctly decoded keyboard. See KAOS Oct. 83. 


Resmon. As Dabug 3 plus improved keyboard, Tape view, Printer flag. (No single 
key BASIC). See KAOS March 84, 


Cegmon. Split screen, Screen editor and Screen clear, Improved keyboard, Hex 
save. (No screen swop or single key BASIC). 
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